home *** CD-ROM | disk | FTP | other *** search
/ PCBoard 15.1 Demo / PCBoard v15.1 DEMO - Clark Dev. Co (1994) - Disk 1 of 1.imd / PCBDISK.EXE / PPL / WELFIRST.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1994-02-14  |  1.4 KB  |  140 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     STRING005 = Chr(8)
  33.     STRING006 = Chr(13)
  34.     If (TokCount() == 0) End
  35.     STRING003 = GetToken()
  36.     If (!Exist(STRING003)) End
  37.     FOpen 1, STRING003, 0, 0
  38.     AnsiPos 1, 23
  39.     Print "@X0EWhat is your first name? "
  40.     While (!BOOLEAN001 && !Ferr(1)) Do
  41.         FGet 1, STRING004
  42.         Print STRING004
  43.         INTEGER001 = GetX()
  44.         INTEGER002 = GetY()
  45.         INTEGER003 = CurColor()
  46.         AnsiPos 1, 23
  47.         Print "@X0EWhat is your first name? "
  48.         DefColor
  49.         STRING002 = Inkey()
  50.         If (((STRING002 >= " ") && (STRING002 <= "~")) && (Len(STRING001) < 50)) Then
  51.             STRING001 = STRING001 + STRING002
  52.         ElseIf ((STRING002 == STRING005) && (Len(STRING001) > 0)) Then
  53.             STRING001 = Left(STRING001, Len(STRING001) - 1)
  54.         ElseIf (STRING002 == STRING006) Then
  55.             STRING001 = STRING001 + STRING002
  56.             BOOLEAN001 = 1
  57.         Endif
  58.         Print STRING001, " ", STRING005
  59.         AnsiPos INTEGER001, INTEGER002
  60.         Color INTEGER003
  61.     EndWhile
  62.     FClose 1
  63.     If (BOOLEAN001) Goto LABEL001
  64.     AnsiPos 1, 23
  65.     DefColor
  66.     ClrEol
  67.     KbdStuff STRING001
  68.     STRING002 = "What is your first name"
  69.     STRING001 = ""
  70.     InputStr STRING002, STRING001, 14, 50, Mask_Ascii(), 0
  71.     STRING001 = STRING001 + STRING006
  72.     :LABEL001
  73.     Cls
  74.     KbdStuff STRING001
  75.     End
  76.  
  77. ;------------------------------------------------------------------------------
  78. ;
  79. ; Usage report (before postprocessing)
  80. ;
  81. ; ■ Statements used :
  82. ;
  83. ;    3       End
  84. ;    1       Cls
  85. ;    1       ClrEol
  86. ;    1       Color 
  87. ;    8       Goto 
  88. ;    14      Let 
  89. ;    4       Print 
  90. ;    7       If 
  91. ;    1       FOpen 
  92. ;    1       FClose 
  93. ;    1       FGet 
  94. ;    2       DefColor
  95. ;    1       InputStr 
  96. ;    2       KbdStuff 
  97. ;    4       AnsiPos 
  98. ;
  99. ;
  100. ; ■ Functions used :
  101. ;
  102. ;    3       +
  103. ;    1       -
  104. ;    3       ==
  105. ;    1       <
  106. ;    1       <=
  107. ;    1       >
  108. ;    1       >=
  109. ;    8       !
  110. ;    4       &&
  111. ;    3       Len(
  112. ;    1       Left()
  113. ;    1       Ferr()
  114. ;    2       Chr()
  115. ;    1       Inkey()
  116. ;    1       Mask_Ascii()
  117. ;    1       GetToken()
  118. ;    1       Exist()
  119. ;    1       GetX()
  120. ;    1       GetY()
  121. ;    1       CurColor()
  122. ;    1       TokCount()
  123. ;
  124. ;------------------------------------------------------------------------------
  125. ;
  126. ; Analysis flags : No flag
  127. ;
  128. ;------------------------------------------------------------------------------
  129. ;
  130. ; Postprocessing report
  131. ;
  132. ;    0       For/Next
  133. ;    1       While/EndWhile
  134. ;    3       If/Then or If/Then/Else
  135. ;    0       Select Case
  136. ;
  137. ;------------------------------------------------------------------------------
  138. ;                 AEGiS Corp - Break the routines, code against the machines!
  139. ;------------------------------------------------------------------------------
  140.